From: Daniel Dehennin Date: Fri, 29 Jul 2011 09:29:35 +0000 (+0000) Subject: mm-decode.el (mm-dissect-buffer): Add a default content-disposition in mm handle... X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2692 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=b408029dfad6fb29cb7be39cbed5bcb527aec283;p=emacs.git mm-decode.el (mm-dissect-buffer): Add a default content-disposition in mm handle if none is specified. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4a27f6440f7..8bc1169cf09 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-07-29 Daniel Dehennin + + * mm-decode.el (mm-dissect-buffer): Add a default content-disposition + in mm handle if none is specified. + 2011-07-24 Andrew Cohen * nnimap.el (nnimap-make-thread-query): Quote message-ids for gmail. diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index a51c6630ac5..692175d471f 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -564,7 +564,13 @@ Postpone undisplaying of viewers for types in (setq ct (mail-fetch-field "content-type") ctl (and ct (mail-header-parse-content-type ct)) cte (mail-fetch-field "content-transfer-encoding") - cd (mail-fetch-field "content-disposition") + cd (or (mail-fetch-field "content-disposition") + (when (and ctl + (eq 'mm-inline-text + (cadr (mm-assoc-string-match + mm-inline-media-tests + (car ctl))))) + "inline")) ;; Newlines in description should be stripped so as ;; not to break the MIME tag into two or more lines. description (message-fetch-field "content-description")